
   5 .   O-JELLO
   6 . BY CLYDE PERKINS
   8 :return ;clear ;input " HOW MANY PLAYERS ?"I;I=I-1
  10 :return ;clear ;for N=-4to 4;box Nmul 10,0,1,73,1;box 0,Nmul 9,81,1,1;next N;@(0)=-1;@(1)=-1
  20 for P=1to 2;A=120mul P-181;B=10;gosub 370;for B=-4to 5step 9;A=(Pmul 2-3)mul Bdiv ABS(B)mul 5;gosub 370;next B;next P;if I P=1;goto 60
  30 @(2)=3;@(3)=5;@(4)=1;@(5)=8;@(7)=9;@(8)=0;@(9)=15;@(12)=-15;@(13)=2;@(17)=99
  40 for X=0to 3;for Y=0to X;for Z=2to 50step 16;for W=1to 4step 3
  50 @(Xmul W+Ymul (5-W)+Z)=@(X+Ymul 4+2);next W;next Z;next Y;next X;P=1
  60 gosub 180;E=0;F=0;gosub 120;gosub 410
  70 box E,F,3,3,3;G=E;H=F;E=E+JX(P)mul 3;F=F+JY(P)mul 3;box G,H,3,3,3;if TR(P)=0goto 70
  80 X=(G+90)div 10mul 10-85;Y=(H+90)div 9mul 9-85;if (ABS(X)>35)+(ABS(Y)>32)goto 140
  90 if PX(X+3,Y)goto 110
 100 S=-10;gosub 210;if Q P=(P=1)+1;gosub 180;goto 150-90mul (I#0)
 110 gosub 130;print "OOPS",;for N=0to 1000;next N;gosub 120;goto 70
 120 gosub 130;box CX+9,CY,27,9,2;return 
 130 CX=120mul P-189;CY=0;NT=3;return 
 140 gosub 130;print "PASS",;gosub 170;P=2-(P#1);if (P=1)+(I#0)goto 60
 150 P=2;gosub 410;gosub 200;P=2;if V#0X=C;Y=D;S=-10;gosub 210;P=1;goto 420
 160 goto 140
 170 if PX(-69,0)=PX(51,0)goto 190
 180 if @(0)+@(1)#64return 
 190 box 0,0,59,17,2;CX=-23;CY=0;print "GAME OVER",;I=KP-49;run 
 200 P=0;V=0;for Y=32to -31step -9;S=0;for X=-35to 35step 10;M=10;if PX(X+3,Y)M=-10;goto 240
 210 Q=0;for U=X+Sto X+10step 10;for W=Y-9to Y+9step 9;if PX(U+3,W)if PX(U,W)=(P=1)goto 250
 220 next W;next U;if Preturn 
 230 if Q A=X;B=Y;gosub 390;Q=Q+R;if V<Q V=Q+rnd (9)-7;C=X;D=Y
 240 S=M;next X;next Y;return 
 250 Z=0;if U<Xgoto 270
 260 if M>=U-X M=U-X-10
 270 gosub 400;MU=rnd (26)+64;A=X;B=Y;for L=1to 8;A=A+U-X;B=B+W-Y;if PX(A+3,B)=0gosub 400;goto 220
 280 if PX(A,B)=(P#1)goto 320
 290 if P=0gosub 390;Z=Z+R;next L
 300 if Zgosub 360
 310 next L
 320 if P=0Q=Q+Z+99mul (Q=0);gosub 400;goto 220
 330 if Zgoto 220
 340 if Q=0A=X;B=Y;gosub 370
 350 Z=1;Q=1;goto 270
 360 T=2-P;N=-1;box A,B,7,6,2;gosub 380
 370 T=P-1;N=1;for E=3to 7step 2;box A,B,E,9-E,3;next E;box A,B,2mul P+1,2mul P,3-P;NT=3;MU=90-Pmul 4
 380 CX=120mul T-63;CY=20;@(T)=@(T)+N;NT=0;print #2,@(T),;return 
 390 O=ABS(B)div 9mul 4+ABS(A)div 10+2+32mul (B<0)+16mul (A<0);R=@(O);return 
 400 box X,Y,3,2,(P=0)mul 3;return 
 410 box 0,-40,160,7,2;gosub 120;CY=-40;print " up ",;return 
 420 gosub 180;for B=-31to 32step 63;for A=-35to 35step 70;if PX(A,B)gosub 390;@(O-5)=0
 430 next A;next B;goto 60
run 
>